﻿Option Explicit On
Option Strict On
Imports System.Data
Imports System.Data.OleDb

'Documentación XML
''' <summary>
''' Esta clase almacena y gestiona los diferentes 
''' permisos a los que tiene acceso cada rol.
''' </summary>
''' <author> Jerón Fernández Caballero Rico</author>
''' <author> Daniel Morato Baudi</author>

Public Class Permisos

    'Atributos
    Private _AccesoArchivo As Boolean
    Private _AccesoCampeonato As Boolean
    Private _AccesoGestion As Boolean
    Private _AccesoConfiguracion As Boolean
    Private _AccesoAyuda As Boolean

    'Constructor
    Public Sub New()

        Me._AccesoArchivo = False
        Me._AccesoCampeonato = False
        Me._AccesoGestion = False
        Me._AccesoConfiguracion = False
        Me._AccesoAyuda = False

    End Sub

    'Documentación XML
    ''' <param name="Archivo">(Boolean) Indica si el usuario tiene o no acceso al menu Archivo.</param>
    ''' <param name="Campeonato">(Boolean) Indica si el usuario tiene o no acceso al menu Campeonato.</param>
    ''' <param name="Gestion">(Boolean) Indica si el usuario tiene o no acceso al menu Gestion.</param>
    ''' <param name="Configuracion">(Boolean) Indica si el usuario tiene o no acceso al menu Configuracion.</param>
    ''' <param name="Ayuda">(Boolean) Indica si el usuario tiene o no acceso al menu Ayuda.</param>

    Public Sub New(ByVal Archivo As Boolean, ByVal Campeonato As Boolean,
                   ByVal Gestion As Boolean, ByVal Configuracion As Boolean,
                   ByVal Ayuda As Boolean)

        Me._AccesoArchivo = Archivo
        Me._AccesoCampeonato = Campeonato
        Me._AccesoGestion = Gestion
        Me._AccesoConfiguracion = Configuracion
        Me._AccesoAyuda = Ayuda

    End Sub

    'Destructor
    Public Sub Dispose()

        Me._AccesoArchivo = False
        Me._AccesoCampeonato = False
        Me._AccesoGestion = False
        Me._AccesoConfiguracion = False
        Me._AccesoAyuda = False

    End Sub
    Protected Overrides Sub Finalize()

        Me._AccesoArchivo = False
        Me._AccesoCampeonato = False
        Me._AccesoGestion = False
        Me._AccesoConfiguracion = False
        Me._AccesoAyuda = False

    End Sub
    ' Get/Set
    Public Property AccesoArchivo() As Boolean
        Get
            Return Me._AccesoArchivo
        End Get
        Set(ByVal value As Boolean)
            Me._AccesoArchivo = value
        End Set
    End Property
    Public Property AccesoCampeonato() As Boolean
        Get
            Return Me._AccesoCampeonato
        End Get
        Set(ByVal value As Boolean)
            Me._AccesoCampeonato = value
        End Set
    End Property
    Public Property AccesoGestion() As Boolean
        Get
            Return Me._AccesoGestion
        End Get
        Set(ByVal value As Boolean)
            Me._AccesoGestion = value
        End Set
    End Property
    Public Property AccesoConfiguracion() As Boolean
        Get
            Return Me._AccesoConfiguracion
        End Get
        Set(ByVal value As Boolean)
            Me._AccesoConfiguracion = value
        End Set
    End Property
    Public Property AccesoAyuda() As Boolean
        Get
            Return Me._AccesoAyuda
        End Get
        Set(ByVal value As Boolean)
            Me._AccesoAyuda = value
        End Set
    End Property

End Class